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E LIBSINITIALIZE 
T 1 ebbe/ 


4-00 Page 1. 
NITIA.MAR;1 (1) | 
n di | 
Edit: 


PARRBARAAARALASAAAAALALAAAAALELELELA SAAS ASAE RE EEE ERASER RA RARER RAR SSAA DS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORD an CE WITH THE TER OF SUCH ertGanto AND a a 


*® ® 
*® a 
:* ® 
® ® 
*® & 
* & 
*® ® 
** ® 
:® 4 ® 
s® OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. « 
*® ® 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

& 
** * 
:® ® 
*® * 
*® ® 
or & 
*® ® 
*® * 


SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


CSOooOOooCoooooooooooooooooo 


LARRBRAAAAAALAALALALALELASARREARARSASESASALESELAREAR RAR ERA RR AR RRA RA RASA SSDS SO | 


3 ; ENVIRONMENT: User mode - not re-entrant. Called only once 
per image activation. 


; ; ABSTRACT: 


LIBSINITIALIZE is a software architecture procedure 
which permits any Librery or user modular procedure to specify an initializa | 
to be called before the main program is called. 
The initialization procedure can perform any once per-image 

activation initialization which cannot be performed by the usual 
cone | Lent ian and Link-time static data initialization. 


SOSOSOSOSOSOSOSOOSSSOSSOSSSOOSOSSOSOSOOSOSOSOOSOSOOOSOOOOSS 
OOoooooooooocooo 


; ; VERSION: 0 
; ; HISTORY: 


; ; AUTHOR: 
Thomas N. Hastings, 6-Aug-77: Version 0 


; MODIFIED BY: 


MEW O ODNAUE WIN 9 OD NAUE WN OO DONOUE WN 0 OONOULS WN OWOONO Uw 


:" FACILITY: RUN-TIME UTILITY PROCEDURE LIBRARY 


SoOooocoocooooooooQooooooooooooooooooooooooooooooSooooo 


SOOOCOCOSOSCOOSCOSOSSSOOOCOOSOSOOSOOOOSOSOOSOOSOOOOOOOOOOOOOoOO 
PUPS ES BB BP BBB BE ENN NAMING PO NPONINIPINPINPNNY 2 OO os 
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LIBSINITIALIZE ; Library initialization dispatcher 16-SEP- :11:03  VAX/VMS Macro v04-00 Page 
1-004 AnSTORY ’; Detailec current Late Wistory GaseP-19Be $120B;09 LCTORTE CRETCIOGNIGTALMAR: 1 om (35. 
6 38 -SBTTL HISTORY : Detailed Current Edit History 
rs ; Edit History for Version 0 
6 ° 
8 3 0-01 = initial version TNH 12-SEP-7 
0 64 ; 0-4 = Declare PSECT L1BSCODE we "tm 19-Dec-77 
0000 65 ; 00-05 - Return after main Br 09 OWN storage. TNH 6-Jan-78. 
9900 66 : 00-08 - Change. PSECT to 3 8s bE NBsHa. JMT 25-Jan-78 
000 67 ; 00-09 = Declare PSECT oN 00-Jun-78 
8808 68 ; 00-10 -  PSECT © TOSDATACH NOPIC™ TNH b8-June-78 
00 4 3 1-001 - Update version number and copyright notice. JBS 16-NOV-78 
0000 0; e's 4 - Remove SSFDEF macro = not needed. JBS 16-DEC-78 
Boop 71 ; 1-003 - Add "'."’ to certain PSECT directives. (Don' : change those 
000 IS ; documented in release 1.) JBS -7 
0000 73 : 1-004 = Zero the Environment Pointer’ (R1) before calling 
0000 74; initialization routines. This insures that routines 
0000 75 3: written in PASCAL, PL/I, etc. will work correctly. 
0000 76 ; SBL 7-April-1980 
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00000000 
00000 00 
00000000 
00000000 0000 


0000 


00000008 


00 
00 
00 
00 
00 
3 
00000004 : 
0000000C 6 
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0000 
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-SBTTL DECLARATIONS 


INCLUDE FILES: 


Sete te te 


; EXTERNAL SYMBOLS: 
-DSABL GBL 
MACROS: 


: PSECT DECLARATIONS: 
‘ .PSECT 
INIT_TABLE_ BEG: 
.PSECT 


WOOO 000 OOOO C0 CDCD0D CD ODO I~ 


CONAOUE WN OOOnNAOUS Win O 00 
. 


S88 


.PSECT 
INIT_TABLE_END: 
-LONG 0 


: EQUATED SYMBOLS: 
> OWN STORAGE: 
.PSECT _LIBSDATA 
DISP_PTR: 
SAV_START ADR: 


; 1 
SAV_AP: .BLKL 1 


ce ce ce ce ec cD ce ce ee cD cel) eth ee ee ee ee eed 
RNIN 2 BOO COOOCOSG 


MO ODNAOUES WN OO O"JOums Uy 


»PSECT 


>: Cont 
LIBSINITIALIZE NOPIC,USR,CON,REL,GBL,NOS 
> Contributions 
LIBSINITIALIZES NOPIC,USR,CON,REL,GBL,NOSHR,NOEXE,RD,NOWRT LONG 


; Force .EXTRN declarations for externals 


LIBSINITIALIZD2Z ertheter es | rte pe NOEXE ,RD ,NOWRT , LONG 
, First entr nm tadre 
LIBSINITIALIZD_ NOPIC,USR, CON-REL GAL ,NOSHR.NOEXE JRO .NOWRT ,LONG 


from OTS$S 
HR ,NOEXE ,RD,NOWRT LONG 
rom res 


ribution 


3; End of startup List 
3; The code for this module 


PIC,USR,CON,REL,LCL,.NOSHR,NOEXE ,RD,WRT 


OWN variable containin 


WN variable to save origin 
value of START_ADR_ADR ar 
saved value of AP when called 
needed to find original arg List 
3 on co-routine call back. 


a 
List entry 


-LIBSCODE_NOSHR PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT 


t of Library and use 


penaver to initiatizatton dispatch table 


1986 9:08:09 UCTORTL.SRESLIBINITTA.MaR:1 28° (3). 


| 
| 
| 
| 
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~SBTTL LIBSINITIALIZE = Library initialization procedure dispatcher 


25 
nae a 
> 
Cr 
-—7 


;+4 
; FUNCTIONAL DESCRIPTION: 


3 UBrary and us is a library procedure for initializing 
: brary and weer Be gee at run-time which cannot 
3 *.7 ne statically at com ba or Link-time. 
H ties INITIALIZE. ; yealled efore the main program 
; GLOBAL symbol LIBSINITIALITE is defin of. rer  prenamures 
3 and t prery ee aeeeres need only declare LIBSIN 
3 as an EXTERNAL (the compiler gen rare? EXTERNAL lite LT CAGE 
3 which witracare: the EXTERNAL LIBSINITIALIZE). 
; vies TIA ate calls every entrypoint cenertbeeed to 

$ PSECT LIBSINITIALIZE. 

3 Note: this rosaiea is not re-entrant. It can only 7 called 

3 once per image activation 9s eervens*s coded. If multiple 

; main programs exist in an image ut the first shoutg be called 
3 directly, rather than calling TRA the image startup List 

5 setup by the Linker. 


; CALLING SEQUENCE: 
Status.wlc.v = LIBSINITIALIZE (start_adr_adr.ma.r, cli_co_rout.flc.r, ...) 


: INPUT PARAMETERS: 


00000004 START_ADR_ADR = 4 


Adr. of the entry 
in the image startup vector 
3; which is used to perform the call. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
The completion code returned from the main program. 


; SIDE EFFECTS: 
Violates VAX-11 Procedure Calling standard by ait oe arg List entry START 
Increments it by 4 to point to main program starting address. 
This violation is sesentenie. since LIBSINITIALIZE Zaly called 
by CLI and debugger. 


SOOCOGCGCOCOCOCOOOSOOCOOSOSOOSOSOSOSCSOSOSOSSOOSOSOSSOSOSOOSOSOSOSOSOOOCOOOSOOSOSoOO 
SOOCCSCOCOCOOOSOOSOSOSOSSSSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOOSOSOOSOOSOOSOOOOOOSO -5 
COOQCOCOOCOCOCOCOOOSOOSSSSOOSOSCOCOOCGOOOOCOOOOOOOOOOOOOOOO 


ee ee ed ed td ed = = od wd = SS od = = wd 2 2 = 2 2 2 — 2 3 —) — — 2 2 -W 3 2 lo rd 
NNN NNN NAPA AAAAAA AUNT BEE EEE EWAN WIARTON Mie? 
NAAR WN CO OONANE WN SO ODNAU EWN OOD NOU EWN OOD NOAU EWN OOOO NOUS 

. 
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‘ IBSINITIALIZE ; Library initialization dispatcher 16-SEP-1984 00:11: AX/VMS Macro V04-00 Page 
1 B04 EIBSINITIALIZE «Library Inietelicetion ‘S-Sep-19B6 $1,0B:09 LCTORTE SReTCIMGNISGA.MAR:1 2% (8) 
4000 1 9 ENTRY LIBSINITIALIZE, “M<IV> ; entry point and entry mask 
: 1 : enable integer overflow 
OOOOOB8'EF SC OD 1 § MOVL AP, SAV_AP 3; save AP for co-routine restore 
O04'EF O04 AC D 1 MOVL  START_ADR_ADR(AP), - =: save pointer to startup List in OWN 
1 186 SAV_START_ADR ; storage (SAV_START_ADR 
04 AC S3'AF OE BB } 2 MOVAL a a : change or bist entry in case ied 
3: an initialization procedure is called. 
QOOOOD00'EF OO000000'EF DE 0016 187 MOVAL INIT_TABLE_BEG, - 3; initialize OWN storage (DISP_PTR) 
op ! ! 3 DISP_PTR 3; to first address of user/library 
1 190 ;+ 
3 1 191 ; Loop to scan table of user and | torory initialization procedure 
1 136 3; starting addresses in PSECT LIBSINITIALIZDZ, LIBSINITIALIZD_, 
43 1 195 ; LIBSINITIALIZE, and LIBSINITIALIZES 
051 198° 
50 Q0000000'°FF »D0 09 1 136 LOOP: MOVL @DISP_PTR, RO ; RO = oy — er initialization 
3 procedure address 
16 13 $6 : 138 BEQL CALL_MAIN 3; zero means end of List 
51 D4 QO2A 19 CLRL R1 3; Clear environment pointer 
60 6C FA 8 C 00 CALLG (AP), (RO) 3 call next user/library init proc. 
00000000' FF D3 O2F 201 TSTL  a@DISP_PTR : test if dispatch address is zero 
18 13 0035 88 BEQL RET 3 yes, this must be return from 
8 7 0 3; user initialization proc. which had 
037 04 3; done co-routine call-back. 
0037 05 3; There fore this is return from main 
itt 4 3; program, so return to caller (of LIBSINIT: | 
0037 0 3; caller or initializtion procedure) 
itt 08 ; may loop thru here for each init proc whic 
b08? | 510 s+ 
Ont) 12 3; Here from co-routine call-back from an initialization routine 
0037 213 ° 
00 7 14 DISPATCH_CONT: 3; continue Stapeteding to initialization pro 
00000000'EF 04 CO O03¢ 3 ADOL #4, DISP_PTR : step dispatc pointer to next 
: init. proc. address 
E1 11 003 17 BRB LOOP 3; loop “ 
ae 
bg8 0 ; Here when entire initialization List has been scanned 
4 1 ; Call main program 
B08 § 3° 
a9¢0 4 CALL_MAIN: ; here to call main program 
04 AC O0000004'EF 04 (C1 be 5 ADDL3 #4, SAV_START_ADR, - ; Restore initial argument and step 
49 § START_ADR_ADRTAP) : to next Longuord in image startup vector. 
50 04 af DO oH MOVL @START_ADR_ADR(AP), RO ; RO = next start address (main program) 
1 04 4D 8 CLRL 3; Clear environment pointer 
60 6C FA OO4F CALLG (AP), (RO) ; call main program or main procedure 
. 04 0052 0 RET: RET 3; RO = status returned by main drogram 


ialization 


IBSINIT ;_Li - j 
eit tae as i1est uy ibrary dispatcher "Br SEb a} 38 9:4 08: $3 CieRte. BREIL 18 MONITGA. MAR; 1 ape ae 


rar 
NIT 
4009 : 

5C Q0000008'"EF oD 
03 
005 


" cooreyt ine - may be called bY bibrery or _user initialization procedure. 
3 + to value it had when LIBSINITIALIZE originally called. 
Ss This lets LIBSINITIALIZE re-use the same argument tise’ 


“,WORD “M<IV> 
MOVL = SAV_AP, AP 


BRB DISPATCH CONT 
«END 


no registers _—., 
restore AP to inal arg List 
when LIBSINITIALI E was called. 
go continue dispatch loop 


End of module LIBSINITIALIZE 


D9 i111 
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MEW O OOONAUE UP 
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oO 
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LI 16-SEP-1984 11: AX/VMS Macro V04-00 
Symbol table ates i ba 98 YOTORTL. SREICIOINITIA.MARS 1 (7) | 
CALL_MAIN 
CO_ROUT 
DISPATCH_CONT 
DISP_PTR 
INIT_TABLE_BEG 1 
INIT TABLE END 4 
LIBSINITIACIZE 6 
LOOP 6 
RET 2 
SAV_AP 8 
SAV-START_ADR 5 
START_ADR-ADR = 

t-eoesoeasnescaenmone a 

; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- «ABS. 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
LIBSINITIALIZDZ 00000000 ( 0.) O1¢ 1.) NOPIC USR CON GBL NOSHR NOEXE RD NOWRT NOVEC LONG 
LIBSINITIALIZD_ 00000000 ( 0.) 4 ( @°{ NOPIC USR CON REL GBL NOSHR NOEXE RD NOWRT NOVEC LONG 
LIBSINITIALIZE 00000000 0.) 03 ¢ -) NOPIC USR CON REL GBL NOSHR NOEXE RD NOWRT NOVEC LONG 
LIBSINITIALIZES 00000004 4.) 04 ¢( 4.) NOPIC USR CON REL GBL NOSHR NOEXE RD NOWRT NOVEC G 
_LIBSDATA Q000000c ¢ tees GSE Sel PIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
=LIBSCODE_NOSHR OO0000SE ( 94.) 06¢ 6.) PIC USR CON LCL SHR EXE RD NOWRT NOVEC BYTE 

Quseecesnsennnseesmennend 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization $3 0:00: 8.93 08 +0 206-66 
Command processing 109 0:00:00. 2 88:88 38 6 
Sze! sable sort ee mmr ay 
e r sVUUSUU. sUUSUU. 

Pass 2 R 00:0 :00. 8 8:00:00 -0) 
Symbol table output 2 0: +48 2 B08 388-8 
Psect synopsis output 4 B38 :00.01 8: 208-8 
Cross-reference output g : 290-98 :00:00.0 
Assembler run totals 27 0:00:01.00 00:00:10.71 


The_working set Limit was 750 pages. 
2647 byies (6 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 12 non-local and 0 local symbols. 
45 source lines were read in Pass 1, producing 20 object records in Pass 2. 
pages of virtual memory were used to define 0 macros. 


+ + 
: Macro Library statistics ; 


Macro Library name Macros defined 


~-$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 
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VAX-{i macro Run Statistics * U1Brary Initialization dispatcher TRS 9be $Pibb:88 EMTGNTE.SRESCIBINIoTa.man:1 "29°F, 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBINITIA/OBJ=OBJ$:LIBINITIA MSRC$:LIBINITIA/UPDATE=(ENHS$:LIBINITIA) 
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